module ProcessQueue.Model exposing (..)
import Array exposing (Array)

type alias Queue = Array (Array PCB)

type alias PCB = 
 { name: String
 -- 总共消耗
 , cost: Int
 -- 已被处理
 , processed: Int
 }

type alias Model =
  { queue : Queue
  -- 当前正在处理哪个队列
  -- 接收到新进程信息时
  , pointer : Pointer 
  -- 计步器
  , acc : Acc
  , print : String
  }

type alias Acc =
 {step : Int
 ,max_step : Int
 }

type alias Pointer = Int